home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh91a.d64
/
vm etiketten
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
68 lines
100 POKE53281,6:POKE53280,6:POKE53272,21:POKE657,128:POKE650,128
110 PRINT"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
120 [153]"PEEK PEEK
130 PRINT"[194][157][194][145] MIT DIESEM PROGRAMM KOENNEN SIE [194][157][194]
140 [153]"PEEKCMDPEEKON ETIKETTEN FUER IHRE VIDEOKASSETTEN PEEKCMDPEEK
150 PRINT"[194][157][194][145] AUSDRUCKEN, DIE SIE IN ZWEI FORMEN [194][157][194]
160 [153]"PEEKCMDPEEKON ERSTELLEN KOENNEN. SYS> TASTE < PEEKCMDPEEK
170 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
180 [151]198,0:[146]198,1:[151]198,0
190 [153]"LOADSOLL DAS ETIKETT IM LAENGST ODER BREIT-
200 PRINT"FORMAT ERSTELLT WERDEN ( VIDEOHUELLE /
210 [153]"VIDEOKASSETTE ) ?
220 PRINT"[158] 1. LAENGST
230 [153]" 2. BREIT
240 U=0:PRINT"BITTE WAEHLEN !
250 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]250
260 [139]A$[178]"2"[167]U[178]1:[137]600
270 [153]"LOAD(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
280 PRINT"[194] [194]
290 [153]"PEEK PEEK
300 PRINT"[194] [194]
310 [153]"PEEK PEEK
320 PRINT"[194] [194]
330 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)
340 PRINT"[158]BITTE GEBEN SIE NUN EIN, WAS AUF DEM
350 [153]"ETIKETT STEHEN SOLL.";
360 [129]I[178]1[164]5:[153]:MX[178]35:[141]370:A$(I)[178]B$:[130]:[137]500
370 B$[178]""
380 [139]U[178]0[167][153]".....................................":[153]"ON";
385 [139]U[178]1[167][153]"......................":[153]"ON";
390 [161]A$:[139]A$[178]""[176]A$[178]"ON"[176]A$[178]"CMD"[167]390
400 [139][198](A$)[177]192[175][198](A$)[179]234[167]460
410 [139]A$[178][199](13)[167]490
420 [139]([198](A$)[179]32[176][198](A$)[177]127)[175]A$[179][177][199](20)[167]390
430 [139]A$[178]","[176]A$[178]":"[176]A$[178][199](34)[167]390
440 [139]A$[178][199](20)[175][195](B$)[178]0[167]390
450 [139]A$[178][199](20)[167]B$[178][200](B$,[195](B$)[171]1):[153]".CMDCMD-CMD";:[137]480
460 [139][195](B$)[177]MX[167]390
470 [153]A$;"-CMD";:B$[178]B$[170]A$
480 [137]390
490 [129]R[178][195](B$)[164]MX[170]1[171]V1:[153]" ";:[130]:[142]
500 [153]:[153]"SOLL DAS ETIKETT AUSGEDRUCKT WERDEN ?"
510 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167]510
520 [139]A$[178]"N"[167][138]
530 [159]1,4
540 [129]R[178]1[164]5:[152]1,A$(R):[130]
550 [160]1
560 [153]"NOCH EINMAL AUSDRUCKEN ?"
570 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167]570
575 [139]A$[178]"J"[167]530
580 [138]
600 [153]"LOAD(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
610 FORR=1TO10:PRINT"[194] [194]":NEXT
620 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
630 [153]"SYSBITTE GEBEN SIE NUN EIN, WAS
640 PRINT"ETIKETT STEHEN SOLL.";
645 FORI=1TO10:PRINT:MX=21:GOSUB370:A$(I)=B$:NEXT:GOTO700
700 PRINT:PRINT"SOLL DAS ETIKETT AUSGEDRUCKT WERDEN ?"
710 GETA$:IFA$<>"J"ANDA$<>"N"THEN710
720 IFA$="N"THENRUN
730 OPEN1,4
740 FORR=1TO10:PRINT#1,A$(R):NEXT
750 CLOSE1
760 PRINT"NOCH EINMAL AUSDRUCKEN ?"
770 GETA$:IFA$<>"J"ANDA$<>"N"THEN770
775 IFA$="J"THEN730
780 RUN